Column

Component 1

Column

Component 2

p <- ggplot(pokemon, aes(x = Defense, y = Attack, color = `Type 1`)) +
  geom_point()

ggplotly(p)